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ENVIRONMENT: User mode 
AUTHOR: Wayne Cardoza 
CREATION DATE: 14-Feb-1983 
MODIFIED BY: 


v03-017 wacoot 6 Wayne Cardoza SenteugrTFOs 
ix an improperly restored register. 


v03-016 wMC0015 Wayne e Cardoza 09-Jul-1984 
Save and restore CTLSGL_IMGHDRBF. 


v03-015 wMc0014 ayne Cardoza 27-Jun-1984 
Add control-Y he to kill subprocess. 


vO3-014 wMC0014 Wayne Cardoza 23-May-1984 
Fix several minor bugs relating to error checks and reporting. 


v03-013 yaceets Wayne Cardoza 08-May-1984 
open dump file for write. 


vO3-012 wMC0012 Wayne Cardoza 22-Mar-1984 
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FACILITY IMAGE DUMP 
ABSTRACT: Analyze an image dump and transfer control to debugger. 


$$EP=198¢ 01:28:48 ETGDMP.SRESANALIADMP.man:1 28° (fy 


Don't Let privilege be removed by image activation. 


1h ne 
006 ; vO3-011 wHco0tt Wayne Cardoza 29-Jan-1984 
p008 : Fix defaults for /IMAGE. 
000 : v03-010 wHco010 ayne Cardoza 27-Dec-1983 
444" ¢ ; Display the condit on from the stack. 
000¢ vO3~009 wc 009 Wayne Cardoza 13-Nov-1983 
p008 : t let image activator remove privileges. 
000¢ ; vO3-008 wmco008 Wayne Cardoza 26-Sep-1983 
2006 A i Vectors must also be reset after IMGACT. 
00072: v03-007 wHc0007 Wayne Cardoza 15-Sep-1983 
2006 it : Reset privileged library vectors when deleting PO. 
75; v03-006 wMCc0006 Wayne Cardoza _ 26-Aug-1983 
. : Phony DEBUG frame had bad PUSH 
78 ; vO03-005 wMc0005 Wayne Cardoza 14-Aug-1983 
oS : Fix priority of created subprocess. 
1; V03-004 wMC0004 Wayne Cardoza 01-Jul-1983 
¢ : SYSSIMGACT has been redesigned. 
; v03-003 wac0003 Wayne Cardoza 25-May-1983 
5 : Fix a privilege problem. 
; v03-002 wMC0002 Wayne Cardoza 20-A tan 
: 3 Reset privileges before calling DEBU 
; v03-001 wMC0001 Wayne Cardoza 20-Apr-1983 
4 : Check dump version number for consistency. 
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Funet tenet Description: 
This is the main routine for analyzing an image dump. It will display 
some useful data and then transfer control to the debugger. 


Calling oe ey es 
Standard 


Input Parameters: 
standard image argument List 


Implicit Inputs: 
the command Line 


Output Parameters: 
none 


BL BC R 
CONNECT RAB = OUTRAB 
BLBC —swRO, 108 


11 
11 
1 
ii 
11% 
119 
120 
: 1 
158 
124 
! 5 
4 
1 Implicit Outputs: 
: , none 
1 § Routine Value: 
: Z none 
135 ; Signals: 
: § none 
138 ; Side Effects: 
139 many 
140 
141 ;:-- 
108 
144 ANALIMDMP: 
132 «WORD 0 
17CB'CF 147 MOVL 12(AP) , THIS_HDR ; Save this images pointers 
17CF CF 123 MOVL 16(AP) , THIS_HDR+4 ; in case we don't load an image 

150 ° PUSHAB SYSSINPUT ; Translate sys$input 
151 PUSHAB INPUT_TRN 
1 § BSBW GET_TRAN 

1818 8F ' ? ee SYSSINPUT_TRN.#<27+<2788>> 3; ESC-ESC means subprocess 
138 BSBW INIT_SUBP ; Do subprocess initialization 
1 § BLBC RO, 108 
13 BRB 7$ 
1 g 5$ PUSHAB DUMP_NAME 3; Get the dump file name 
160 PUSHAB CLI_PARAMETER 

00000000' 161 CALLS #8 .G°CLISGET VALUE 
196 : BLBC RO,10$ 
164 ’$: SCREATE FAB = OUTFAB ; We will eventually need this 
1 
189 
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DUMP nAnE 


SCONNECT ac fos DMP _RAB 


#1,DNP RABSRABSL GKT 
MOA RABCRABSY Ger” 
BMPR RAB 
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DMP_FAB+F ABSB_FNS 
SOPEN FAB = = par FAB 
LBS RO,20$ 


3; Open the dump file 


Read the image header block 
; One block 


RO,1 
a _TRN,#<27+<2788>> ; ESC-ESC means subprocess 


0$ : 
IMGHOR 
1HDSW_ re Dorr (R2), RO ; 


IHIST ae ; 


C AGE 
#1,G*°CLISPRESENT 

RO, 508 

IMAGE DESC ; 


; ogtiScer. VALUE 
IMAGE_DESC, IMGFAB+F ABSB_FNS 
HAGE “DESC4+4, IMGF AB+F ABSL_ 
FAB = IMGFAB 

RO,R2 

IMGNAM+NAMSB_ESL, IMAGE 
IMGNAM+NAMSL - “ESA, IMAGE+4 
FAB = IMGFAB 


RO. 35$ 

RO, #RMSS_FNF 
50$ 

IMAGE 

40$ 


0 a 


#2 QAP RAB+RABSL_BKT _ ; 
{2,0AP -RAB+RABSY _USZ ; 
A sc DAP RAB+RABSL “UBF 


Mo, = per. 


Skip all the image name stuff 
Get to image name 
Image name Length 
Image name will be here 
i ay - for .EXE in image name 
ave image name for use as defaul 
Plant extension to end of MOVC 


; See if image qualifier is there 


Get image name 


PNA 


Save statu 


: Expanded file name Length 


We don't really eset the file 


: Get back the sta 
; The image file iy there 


A real error 
Treat Like /NOIMAGE 


; Is noimage qualifier there 


Indicate no image to be loaded 


Read misc data block 
One block 
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SE 00001381 '8F 

6— 0561'CF atl 


50 00000000'8F 
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16-SEP-1984 70 AX/VMS Macro V04-00 P 
gS 1 obec te 38; 3 LIMGDMP. SR SANALIMDMP.MAR; 1 
: CMPL B{SC*IRGORPSL VERSION #INGDAPSC VERSION 
BEQL 4 ; Versions of dump and program match 
MOVL £i25.SA0F ILEVER RO 
BRB 50$ 
435 BSBW BLD_MISC_VA ; Build table of misc VA's 
: cpu SY§SINPUT_TRN,#<27+<2788>> ; : ESC~ESC means subprocess 


QL ; We al reeer did the display 
CALLS #0,DISPLAY_DUMP ; Display the dump data 


#3 “ RAB+RABS$L_BKT Read reese map block 
{2,DAP_RAB+RAB BS Su ust One bloc 


MOVAB POR RAB+RAB 
SREAD RAB : inp “RAB 
BLBS R0,60$ 


60S: SD 1SCONNECT RAB = DMP_RAB 


SCLOSE FAB = DMP_FAB ; Close file before image activation 
BLBC RO,50$ 

: Decide if we can dp the job in this process or if a subprocess is needed to 
3 make room for the saved stack. 


CMPL MISC+IMGDMPSL iets ~ ae ps 
SYSSINPUT _TRN, 27 +<27285> 4 ; Bsecese means subprocess 


BEQL 80$ ready a subprocess 
BSBW CREATE_SUBP 3 3 create a subprocess 


70S: MOVL § COND_MSG+4,OUTRAB+RABSL_RBF ; First half of condition message 


MOVW COND-MSG OUTRAB+RABSW -RSZ)—S;)—«Cit is easier to do unrelocated 
$PUT R ABS OUTRAB 


RO 50$ 

§ #MOVE_END-MOVE_BEG, SP 

MOVC3 #MOVE- ~END-MOVE_ “BEG, MOVE_BEG,(SP) ; Move the code 
JM (SP) 3 Relocate execution 


> No hope of analyzing this dump. 


68 BOS: MOVL $#SS$_VASFULL,RO 
6 RET 


N 7 
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1A 71; 
1A te $ oe a euperecens to execute this image so we can fix the user stack in 
1A i 3 its old position. 
A {3 CREATE_SUBP: 
7 7 ; Announce what we are doing 
1C018°CF 1CE8'CF dO 1A 8 MOVL CRE_SUB_MSG+4 ,OUTRAB+RABSL_RBF 
1C12°CF 1CE4'CF B0 1 0 MOVW CRE_SUB_MSG,OUTRAB+RABSW_RSZ 
: 1 $SPUT RAB™= OOTRAB 
1A 50 €9 ? ¢ BLBC RO,10 
6 4 SCREMBX_S CHAN = INP_MBX,- ; Mailbox for new process SYSSINPUT 
6 5 AXMSG = #256 
0150 €E8 024D § BLBS RO,20$ 
05 0250 10$: RSB 
0251 8 208: SCREMBX_S CHAN = TERM_MBX : Termination mailbox for the created proces 
E9 50 £—9 0264 89 BLBC RO,10 
1908°CF 9F 8 67 90 PUSHAB SYSSINPUT ; Get recursive translation of SYSSINPUT 
1984 'CF oF 6B 91 PUSHAB INPUT 
0289 30 0 gf 3 BSB 1 TRAN 
5E 08 co 0 ¢ .) ADDL #8,5P 
d8 50 4 027 94 BLBC RO,10$ 
1919°CF 9F 0 78 © 295 PUSHAB SYSSOUTFUT : Get recursive translation of SYSSOUTPUT 
19CC'CF oF 7C 96 PUSHAB OUTPUT 
0278 30 beet 97 BSBW grt TRAN 
SE 08 CO 028 98 ADDL #8,5P 
C7 50 =€9 0286 99 LBC RO,10 
192B'CF 9F QO 3 00 PUSHAB SYSSERROR ; Get recursive translation of SYSSERROR 
1A14'CF SF 028D 34 PUSHAB ERROR 
0267 30 0291 ¢ SBW a TRAN 
5E 08 CO 94 0 ADDL #8,SP 
B6 50 =€9 97 04 BLBC RO,10$ 
1ASC'CF DD 029A 305 PUSHL INP_MBX : Get unit number of mailbox 
1A64'CF SF 029 06 PUSHAB INP_MBX_UNIT 
029D 30 8 A 07 BSBW on UNIT 
5E 98 co A 08 ADOL #8,3P 
AS 50 €9 O2A8 09 BLBC RO,10$ 
1A60'CF DD 9 AB «C3310 PUSHL TERM_MBX : Get unit number of mailbox 
1A68'CF oF AF 11 PUSHAB TERM _MBX_UNIT 
028 30 0283 1 BSBW 7 NI 
SE 08 co 0 B6 1 ADOL #8,5P 
9450 €9 B 14 BLBC RO,10$ 
BC 15 $010W_S CHAN = INP_MBX,- ; Data for the new process 
BC 316 FUNC = #10$_WRITEVBLK! 10$M_NOW,- 
BC 17 Pl = @INPUTT4,- 
BC 18 Ps = lt 
ES DF 1 BLBC 30 
£ 0 $Q10W_S CHAN = INP_MBX,- 
E 1 FUNC = #10$_WRITEVBLK! 10$M_NOW,- 
E § Pl = @IMAGET4,- 
Ps = peas 
£9 4 BLBC RO, 30 
5 $Q10W_S CHAN = INP_MBX,- | 
6 FUNC = #108 WRITEVBLK! 10SM_NOW,- | 
3 Pi = NAME_BOFFER,- 
| 
| 
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sommoon itl 
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05 50 

50 = 1ABB' CF 
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Pe = DUMP NAME 


0.§$ CTRSTR = INPFAO,- ; Get mailbox unit for SYSSINPUT 
OUTLEN = INP_MBX_N 
OUTBUF = INP_MBX- Nance = 


INP_MBX_UNIT 
TRL 


cyRy gis ABL 
CALLS #2,G6* St ete E crm ; Disable DCL use of control-Y 
SASSIGN. $ BEVNAR = SSINPUT,- ; Get channel for control-Y 

HAN = iN CHAN 
$010_S 5nee = Request AST on control-Y 
Hit ile ro CTRLYAST,= 


CNT 
SCREPRC §' IMAGE = = ANAC IMG ; Create the process 
phe gf = OUTPUT? - 
ERROR = ERROR,- 
MBXUNT = TERM_MBX_UNIT,=- 
BASPRI = #4,- 
PRVADR = L*CTL$GQ_PROCPRIV,- 
PIDADR = SUBP_PID 
BLBC RO,4 
$Q10W_S CHAN = TERM_MBX,- 
FUNC = #10$_READVBLK,- 
P1 = TERM_MSG,- 
P2 = #10 
BLBC RO,45$ 
MOVL TERM_MSG+4,RO ; Get process exit status 
1% RO ; Save exit status 
PUSHAB OLD CTRL ; Original control-Y status 
CALLS #6 -G°LIBSENABLE_CTRL ; Restore DCL use of control-Y 
| 
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| 

68 ENTRLY_AST: 
“WORD 0 

SDELPRC_S PIDADR = SUBP_PID : Get rid of the subprocess 


F 65 ; 
: ; AST routine for control-Y¥ when a subprocess is active 
fF 

0000 F 
F 0 

7E ps 4 7 - 
gee’ F 04 7 PUSHAB O40 CTRL : griginat control-Y status 
00000000 ' GF 2 FB O40A 7 CALLS #2,G*LIBSENABLE CTRL 3; Restore DCL use of control-Y 
“ if 374 SEXIT_S COOE = #SS$_NORMAL : Exit this image 


S$ ow 4 01:41:09 VAX/VMS Macro v04-00 Pa 
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S Initialization routines for running in subprocess 


init ~SUBP: 
suBL2 agin Nout e TRN a ; Get rid of the ESC-ESC 


SASSIGN S$ Ge MMAR = INPUT_TRN,- 
= INP_MB 


OOO 0000000000 000000 000009 I~ 


FW O OONAUE WT" OOO 


01 50 BLBS Rb 208 
108: PS 
20$: $a10w_s CHAN = INP_MB 
FUNC = #108 MREADVBLK,- 
106 : 
= @REAL_ {NPUT+4,- 
= REAL_INPUT 
d9 50 BLBC 
50 1B4p* F mOVeWL I fOgB RO 
1B55'CF  1B4F°CF 95 MOVW Tosee INPUT ; Length 
9 SCRELOG_S Locuin -  eYSSINPUT - : Make SYSSINPUT correct 
9 EQLNAM = = REAL. INPUT, - 
39 Taito 
B4 50 BLBC —_ RO, 108 
400 $Q10W_S CHAN = INP 


FUNC = #108 READVBLK, - 
10SB = 10 


4 
208 Pl = SIMAGE DESC+4,- 
a 404 : Pe MAGE_BESC 
a ea ra a 
OAF3°CF 1B4GF'CE B7 408 MOVW 1058+ Length 
OAF7"CF  1618°CEF ifs 409 HOV : IMAGE - besces IMaes 
4C5 411 -" FUNC = #108 TREADVBLK, - 
CS alg 10SB = 10SB>- 
C5 4] Pl = @DUMP_NAME+4,- 
465 414 ; = DUMP 
OF 50 £9 4EB 415 BLBC 30$ 
50 1B4D'CF 3¢ iF 416 NOV ZL 10§ AN 
13BC'CF 1B4F°CF 860 Sr 418 MOVW 1088+2,DUMP_NAME > Length 
05 O4FA 419 30$: RSB 
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Misc routines for subprocess creation 


esc | translate a logical name 
Inputs 


address of descriptor of output buffer 
address of descriptor of input name 


MOVL ota Be ; Output descriptor 
),L0G_OUT ; Output descriptor 
IN ; Name to be translated 


LLEN = (R2J,-" 
RSLBUF = LOG_OUT 


BLBC RO, 

CMPL RO, #SS$_NOTRAN 

BEQL 2 3; ALL done 

oy iag bOG_IN ; Result of the Last try 
208: CMP id eaane? Mer ; ESC-0 means PPF 

BNEQ 0$ 

SUBL #4,(R2) ; Get rid of PPF header 


ADDL #4 ,4(R2) 


30$: RSB 


Get a mailbox unit number 
Inputs 
address to return unit number 
channel number 


MOVL  8(SP),R1 : Channel 
SGETCHN_S CHAN = R1,- 


PRIBUF = MBXCHAR 
poem. MBX CHARBUF +D IBSW_UNIT,@4(SP) 
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MOVE _BEG: 

UBL3 #MOVE_BEG,SP,R7 
CMKRNL_S ROUTIN = DELETE 
LBS ~RO,10$ 
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: The relocateable portion of the code begins here 


Relocation constant 
Go delete PO before image activation 


@*CTLSAL_STACK*12,STACK_INI ; Save current stack base 
VL PES TL SEL IRGHORG? , JNGHOROF 


INI ; Save pointer for analimdmp 
how!d we load an image 


; Relocate image name 


ADDL 7, 1MAGE+4 
ADDL __R7, IMG_DEFAULT+4 
SCMEXEC_S ROUTIN = IMGACT ; 
BLBS “RO, ; 
CMPL RO. #RMSS$_FNF 
BEaL §=s« 408 ; 
RET 
30$: SIMGFIX_S ; 
dos SCMKRNL_S ROYTIN = RESET_VEC ; 
BLBS RO,45$ 
458 ADDL  R7,DEBUG+4 ; 
ADDL §R7,0BG_DEFAULT+4 
MOVL _ DEBUG _JA,DBG_RANGE ; 
SIMGACT_S NAME = DEBUG,- : 
491 DFLNAM = DBG.DEFAULT 
IMGCTL = #IACSM_MERG 
49 INADR = DBG - 
494 RETADR = DBG_RETAOR,- 
495 HDRBUF = DBG-HDRBUF 
49 BLBC  —s ROS 
49 SIMGFIX_S 
49 ADDL  R7,DMP_RAB+RABSL_FAB- ; 
ADDL = R7.DMP~FAB+FABSL—FNA 
1 ADDL _ R7.DMP~FAB+FABSL DNA 
: SOPEN FAB = DMP_FAB : 
CONNECT RAB = DMP_RAB 
5 BLBS _—-RO, 608 
50$: RET 
60$:  BSBW RESTORE.MISC_VA : 


> Do original process address space 

5 #4,,DMP_RAB+RABSL_BKT 
RS 

(R5$+,R2 

NEXT_MAP 


80$: 
BRw GOT DEBUG 
90$: BBC #307 (R5) ,95$ 


ONOUS WO 0 
3 
< 
® 


cee eh We a et 


IMGACT it in EXEC mode so we are 
able to restore privileges 


Treat FNF Like /NOIMAGE 
Address fixups 
Reset any privileged Library vectors 


Relocate DEBUG name 
First unallocated PO 


; Merge in DEBUG 
E,- 


Relocate file name stuff 


Open the dump file again 


Restore the misc VA 


First data block 

Map pointer 

Page count 

Nothing left in this map block 


ALL done = go to DEBUG 


6 8 
vou-000"” $SEp=1986 01:28:48 LIMGDMP. SRESANALIADRP.MaR;1 29 {8) 


i3oe'cr Bs BG S$: BOVE. RS T+ -DMP_RAB*RABSL_UBF ; Starting YA 
53 3 200 8F cS 7008: MULLS @ iaihg R ; Byte co ount 
FEOO 8F : : CHL R fs 92512> ; Is e greater than maximum 
ieee" P0008 Foe 4 101$ MOVE #1274512 03 F geal Set to create th 
° et u e@ page 
1610° GF ‘hon: ¢f $f ¢ ADDL3 R3,BMP_RAB+ RABSL UBF, CREATE spaces . _ 
610°CF 07 CL.  CREATE“PAGE+ pe 
ERETVA. S INADR = CREATE_PAGE,- 
RETADR = CREATE_PAGE 
15 50 €8 ee ™. As Mi ; Were there any problems 
53 1610°CF 160C "CF dupes oC CREATE. Page, CREATE -PAGE+4, yo 3; Created byte count - 1 
9 BNEQ 9 ory pages created? 
53 00000200 8F 40 e d ok3 : Skip one page 
R 


MEW OS OD NOA UNE WH O ODN U0 0 
wo 
52 
ao 


PPP EE EF FAA NAINIWIWIIANIOPOPOPONININONPON 
NO 


i VL 
1 BRB 1 ; Avoid the read 
: pe 105$: INCL ; Make it byte count 
1394'CF 8 110$: MOV -DMP_RAB+RABSW_USZ 
- SREAD RAB MP_RAB ; Read the dump page 
sia 3 Thal cr r 33 ¢ 115$: ADDL - “MP _RAB+RABSL_UBF 
53 F ASHL ; Page count 
13AC' cf C ADDL ny oh DMP. RAB+RABSL_BKT 
3 $¢ 3 1068. 3; Remaining page count 
FF69 31 BRW 
1208: RET 
48 ger Pl: 
50  QB03'CF MOVAB [ns HORBUF ,RO ; Normalize image header 
OBO3'cF 50 «C 50 SUBL , IMG_HDRBUF 
O7°CF ! C 51 SUBL , 1MG_ HDR BUF 
1 o's C 36 SUBL 4 *OMP “RAB RABSL FAB 3 and the RAB 
> &@ € :7 SUBL #4,R5 ~ 3; Reset map pointer 
55 ; Space is created and the code is relocated to the top of PO 
2$ : 3; A PO stack (one page) is also created 
38 ' SEXPREG_S PAGCNT = #<<MOVE_END-MOVE_BEG>+511/512>+1,- 
5 RETADR = NEW_PO 
5 +4 60 PUSH R 
1404 ‘DF FES! CF 1381'8F 2 61 MOVC #MOVE_END-MOVE_BEG,MOVE_BEG,@NEW_PO 
so grau'cr Se 83 ROVAB RAP,RO™ 
§ Cc 64 SUBL ‘ 3; Normalize map pointer 
50 ber 4 i) 65 MOVL wey PO,RO 3; Address code was moved to 
000001C8"EO 1 $6 JMP OS-mOvE -BEG>(RO) 3; Relocate execution 
57 50 00561 "BF 3 68 10$:  SUBL3  #MOVE_BEG,RO,R7 ; Relocation constant 
fa z 3 ADDL misono DMP_RAB+RABSL_FAB 
fr cb 9 ADDL ; Relocate map pointer 
p03" 9 , ROVAB Ime i noReut sho > and image header 
oe Bh ae i Tae 
408" CF OD 75 MOVL 34 3; Get stack out of the way of P1 


0760°CF 00 
60 
52 63 
019 
85 


rege 


1394°CF 


“TBE 
0260 . 


1398°CF oooodSts a 


anhalt 
ABS'CF 17CB'CF 
ABS’ CF we 
pes ce 03° CF 
ABS * CF 07°C 
18°CF 
OF 20° CF B040 
5 1440° HH 

04 62 $00 0000 
04 B82 O00F0000 8F 
E 143C°CF 
1440°CF 
1008 ee 
1414°CF 
see ee 
$ 1424'CF 
142C'CF 
A 1454°CF 


FB 


“Sse SS SSSusas 23 


k= 


ooo-COonu 


+ 4 > 4 -o°o-co 


oo 


WAT PUNIOWo—Onwyny 


7 AL #0,15$ : 
, Stkit_s CObE = RO ; 
4 15s: .wORD 0 
CLAL (FP) ; 
; 20$: MOVL (R5)*, ~R2 ; 
Bey itt 
[ae {85% bn BRS. RAB+RABSL 
con Be AE i He 
$ ie S arene RAPRERYE BA 
9 move = #54 DMP RAB+RABSW_USZ : 
3 SREAD RAB = DMP_RAB 
94 INCL DMP _RAB+RABSL_BKT : 
95 ADDL #51 "25 one RAB+RABSL_UBF ; 
36 SOBGTR R2 408 
3 BRB $ ; 
39 Sos: RET 
0 
1 ber _DEBUG: 
¢ SCMKRNL_S ROUTIN = FIX_STACK _ ; 
SCMKRNL-S ROUTIN = FIX~IMGHDRBF ; 
SCMKRNL_S ROUTIN = RESET_PRI 3 
5 TSTL IMAGE : 
96 BNEQ 0$ 
MOVL § THIS_HDR,DBG_ARG+12 
MOVL THIS_ HOR+4 , DEG _ARG+16 
BRB 20$ ~ 
10$:  MOVL = IMG_HDRBUF ,DBG_ARG+12 
MOVL = IMG HDRBUF #4 DBG_ARG+16 
20$: MOVL DBGER R,R 
MOVAB a PROSLRDS DEBUG_BEG ss; 


; Display the original cause of the dump 


PDEA AA AA AA AAA AA AA AAA AAAAAAAAAAASO 
Sete Ge 


HA RPORIPOPPONINPIPONIND 2 OOO 


RO ODNANE WN" OOONOAUE WIN OO 


MOVL WISC*INGDHPSL AP,R2 
Bist #*xFalé I 
PUTMSG_S RSevEE = a4 (R2) 
BICL “#*xFal : 
MOVL $MISC+IMGDMPSL_SP,SP : 
MOVL § MISC+IMGDMPSL—AP,AP 
MOVO  MISC+IMGDMPSL-R RQ 
MOVQ MISC+IMGDMPSL"R 
MOVO MISC+IMGDMPSL-R i 
mova RISC+IMGDAPSL =R6. 
MOVQ MISC+IMGDMPS 
mova mIs¢sIPEDMPSL~ “h A; : 
; Build a@ phony SS$_DEBUG frame 


SSEp=198e 81:20:28 


‘pA AGE 
“PAGE +4 


Terminate frames 
Page count 


We have finished this map block 
EBUG 


ng V 
Set up to create the page 


a+ ting = go start D 


Not owner of page 
One block . 


; Next file block 


Next page 


Go do next run of pages 


Put stack Limits back 


Restore CTLSGL_IMGHDRBF 
Eliminate the Tmage privileges 


Was an image loaded 


ust to keep it happy 


Find debug transfer address 


Clear the flags 
Restore registers 


AX/VMS Macro v04é-00 
IMGDMP.SRCJANAL IMDMP.MAR; 1 


Create top frame for new stack 
Get out with correct status 


; = DEBUG try oe look at this image 


; Arguments to start DEBUG 


3; Add flags to display all message fields 
: Ignore errors 


SSEP=198¢ 01:38:28 EInGDMP.SRESRNALIADMP.man:1 @8° (8) 


50 O4A i) 5 6 MOVL 4( AP) ,RO : Real signal arra 
51 D é ov, (ROD ° : 
DD PUSHL (R DER j : PC, PSL 
fs A041 0D § PUSHL =4(RO)CR1) 
fF 0D PUSH 9358.0 BUG 
3 +4 8 PUSHL & 
$)} 3 7 MOVL SP,R1 
410°CF DD 087 i PUSHL MISC+IMGDMPSL_R1 
eee i) 7 PUSHL MISC+IMGDMPSL_RO 
Oc AB be Staite ; Make this final frame i di 
ake s final frame in case we need it 
1444'DF 04 89 Of : PROBER #9 #4, QMI1SC+IMGDMPSL_ Fp * 
4 BEQL 25$ ; The 47 is no good 
5D 1446'CF 1) § MOVL MISC+IMGDMPSL_FP,FP 3; Real F 
D 1) 25$ PUSHL FP 
a D 9 8 MOVL FP,RO 
OC AO 4 ret} 30$ te  aeeabann ; In case of a corrupted stack 
50 OCA 9€ e31 MOVL 12¢(R0),RO 3; Trace back FP 
9 1 14 § BEQL 40$ 3 End of the chain 
6E 0 oD 65 MOVL RO, (SP) ; This is a good one 
2a Rw. ba 
. dD 626 PUSHL SP 3 Mechanism array 
dD D 65 PUSHL R11 3; Signal array 
2 oD F O28 PUSHL #2 
5C —E 00 , & VL ss - 3 peeue SS$_DEBUG frame 
O8B9'CF 6C FA 4 660 CALLG Likés to see the resulting frame 
nscees es OFF 889 661 508: ,WORD SRR RS RG, R4,R5,R6,R7_RB, ig? RI 
e¢ AAS‘ CF C $08 MOVAB 0B ORRG. ages 
MOVL SS NORMAL, R ; DEBUG is used to this 
*CF 1] C 664 $- 0 i i 
F20'DF 1 ce 666 JMP @DEBUG_BEG 
C ; 
ee 
CE 0; 
cE rea NEXT_MAP: 
4 0D C o7¢ PUSHL DMP_RAB+RABSL_UB 3; Save current VA 
MOVW DMP_RAB+ aa W_US 3; One block 
1394'°CF 200 8F 0 D 7 o2) 12 Prt 5 z l 
1398°CR OF 26°C D9 rs ROVAB Ap .ORP P ARAB +RABSL L_OBF 
1250 €9 €B ere LBC - 
SAC CF 06 E 7 INCL nO, RAB+RABSL_BKT : Next block 
53°" Ore: . : o78 + Se Te On? RABTRABSL UBF ; Restore VA 
2 &5 4 FC 9 MOVL ashe: Re 3; Get next count 
FF RSB 
04 $88 


— 
So 
ot 
a> 
mm 
“ 
>. 


; Error - give up 


| 


aaa naam aaa eaaaaaamaaamaaaceasnaaaaaaaaeaaaammacacmcaaaaammaaeaa aaa en, | ad 


00000000 


OOO0O00C'9F  O0A98 


00000000°9F  OA9C 


50 


00 


OF 


"CF 


"CF 


"OF 
‘BF 


SSEp=198e O1:28:08 LImGDMP. SACIR 


Misc privileged routines 


Delete all of PO 
ELETE: 


ee Oe Oe Oe Oe ee ee 


, woRD “M<R2,R6> 
SDELTVA.S INADR = ALL_PO 


MOVAQ G*IACSGL_ICBFL,R2 ; R2 = address of free List 


MOVAQ G*IACSGL_IMAGE_LIST,R1 R1 = Listhead of ICBS 
REMQUE @(R1),R Remove next entry 


BVS List empty - all done 
INSQUE (R6),@4(R2) 
BRB 5$ 


Insert at end of free List 
Go back for more 


108: RET 

> Fix up the stack Limit 

B1x_STACK: 

ROVL STACK_INI ,@#CTLSAL_STACK4+12 


: Fix up CTLSGL_IMGHDRBF 


FAX IMGHORBE : 
ROVL IMGHORBF _INI ,@#CTL$GL_IMGHDRBF 


; Reset privileges to get rid of image privileges 
RESET_PRIV: 
- WORD 


=—OOOD NONE WN OOO NAME WN O OONAUE WO 0 Me wr Mery DOnOw 
w 
wr 


NN ee ww wT Ts 


FPA AAAI OIIIINININININININD 4 


6 
ave XE SRESETVEC ; Reset privileged library stuff 


v04-00 Page 18 
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; Deallocate all image control blocks that describe currently activated images 


MOVL  @#CTL$GL_PHD,RO 
CLRQ PHD$G_IMAGPRIV(RO) ; No more authorized image provs 
MCOML  @#CTL$GQ_PROCPRIV+4,-(SP) ; Complement of the permanent privileges 
MCOML a#CTL$GQ~PROCPRIV,-(SP) 
MOVL  _SP,R 
SSETPRV_S ENBFLG = #0,- 
PRVADR = (R1) 
RET 
3; Reset privileged Library vectors 
RESET_VEC: 
<WORD “M<R2,R6> 
JSB ae XESRESETVEC ; Reset privileged Library stuff 
MOVL $#SS$_NORMAL,R 


Kk 8 
ANAL 16-SEP-1984 01:41:09 VAX/VMS Macro v04-00 Pa 17 
viet all gre 4 8 i5aie3 YIMGDMP. SRE TANALIMDMP.MAR: 1 - (9) 
04 4 ; 78 RET 
H 4 te ; IMGACT the original image and then reset the image privileges 
989 74g IMGACT 
0000 9 4 WORD 0 
9 748 SIMGACT_S NAME = IMAGE,- ; Activate original image 
9 749 DFLNAM = IMG_DEFAULT,- 
9 750 RETADR = IMG_RETADR,=- 
9 751 HDRBUF = IMG_HDRBUF 
0 bp 9A 33 PUSHL RO 
7E 2 D Q9AA 7 MOvVa #<1APRVSV_CMKRNL>!<1a@PRVSV_CMEXEC>,-(SP) ; Restore privileges 
51 E 00 OQO9A 4 4 40 SP,R1 
98 5 SSETPRV_S ENBFLG = #1,- 
98 f 5 PRVADR = (R{1) 
50 3 7D OQ9BF é mova iP)? 80 ; Clean up the stack 
8EDO ace 7 8 POPL R 
046 0O9C 75 
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vo0-000 23 P1986 1:2 a) LINGDMP. SRCJANAL IMDMP. MAR: 1 ~ dbp 


<9 


9C ; : 
C ; Routines to handle misc address space ° 
Hi i: ; 
9C 5 ; A table is used ‘ 
9C § 3 count of table entries ‘ 
9C ; Longword offset of size in mise ; 
9C 3 Longword offset of file block in MISC ’ 
| 8 3 Longword offset of VA in MISC_VA 
C 3 Bu able o s of misc pieces of address space 
5 4 Build tabl f VA' f mi i f add 
9C 4 BLD_MISC_VA: 
50 1454'CF 4 9C 74 AOVL MISC+IMGDMPSL_FREE_PO,RO ; Start here 
51 Tae 4 9C 775 MOVAB MISC_CONTROL,R1 3; Table address 
¢ | 2 9D £7g MOVL (R1)F,R2 ; Number of entries 
61 DO 0903 777108: #$MOVL  (R1) RS : Offset for size 
53 140C'CF43 «0: 09D6 178 MOVL misctR 1,R3 : Size 
1 ¥ 90C 77 BEQL ‘ $ ; Nothing saved for this one 
54 O8 Al oO 9D 780 MOVL (R1),R4 ; Offset for VA 
I71E°CR44 | 50 p 962 781 MOVL RO.MIS¢ VACR4] : Save VA 
53 3 4 9E 7 ¢ ASHL #9,R3,R3 ; Page count -> bytes 
0 3 CO O9EC 7 ADDL R3,R0 3 New VA 
 @ €9 9EF 784 20$: ADDL #12,R1 > Next entry 
DE 52 OéF Fe 185 SOBGTR Re. 10s 
171B°CF 5 DO O9F 7 $ MOVL RO,DEBUG_VA ; Start DEBUG at the end 
mie te 
3444 44 3; Restore misc VA 
9FB 791 RESTORE_MISC_VA: 
56 177F ‘CF 9E 9FB £36 MOVAB MISC_CONTROL ,R6 ; Table address 
88 14OC'CE «OE AOS 78% MOVAR MISE TRAST 
55 86 OD ABR 795 MOVL (R6)+,R5 3; Number of entries 
52 66 00 OQAOD 796 108: MOVL (R6) Re 3; Offset of area size 
52. 6842 00 OA10 797 MOVL  (R8)ER2I,R2 : Size 
1 1 AIS = 798 BEQL ye ; Nothing there 
53. OB A D A16 799 MOVL (R6) B 3; Offset of VA 
53 6743 «320 OAIA = 800 MOVL  (R7)CR3),R3 : VA 
04 A600 Aas 01 MOVL 4(R6) ,R4 ; Offset of file block 
54 6844 DO OA ; MOVL  (RB)CR41,R4 : File block 
07. ~=(1 A 8 BSBB READ_ONE_VA 
56 Of C A 4 208 ADDL #12 i 3 Next entry 
DF F5 OA2B 5 SOBGTR R5,10 
05 OA2E $ RSB 
Be 
A2F 88 3; Read a piece of address space 
A2F 10; Re = page count 
AF 13 R5 = starting VA 
" : \ : R4 = starting file block 
AgF 814 READ_ONE_VA: 
13AC'CF 54 ACF 815 AOVL  R4,DMP_RAB+RABSL_BKT 
1398'°CF ; D A354 1 10$: MOVL aepee RAB+RABSL _UBF 3; Address 
160C'CF DO 0A359 1 MOVL R3,CREATE_PAGE ; Create the address range 


bua |naW? " * geggpetone g1:4):08 yanzyms Macro vO4-00, | Page 19. 


4 D A3 1 MOVL R2,R4 3 Remainin count 
O000F E00 &F é bf Ait HPL Re Rei 2765129 S fompare uith mextaum 
54 QOO0007F 8F B AGA MOVL #127,R4 3; Use maximum 
5 9 A i : 208:  ASHL #9,R4,R4 
1394'CF 4 8 A H ; nov R4,DMP_RAB+RABSW_USZ ; Byte count 
1610°CF 43253) 54OC1sC*OOA 5 ADDL3 = R4, RB CREATE PAGE+4 
Ag é SCRETVA_S [NAOR = CREATE_PAGE 
23 50 €9 OA LBC 30 “RO, 5 
A74 8 READ RAB = DMP_RAB 
15 i E9 Are 3 BLBC RO, 50$ 
53 4 ¢ A ¢ 1 ADDL 4,R 3; Update address 
54 F7 8F A87 ¢ ASHL #-9,RGRG ; Get back the page count 
ISAC'CR 54 CO OABC 83 ADDL  R4,0MP_RAB+RABSL_BKT 
we yd $e SUBL R4,R2 ; Any pages left? 
9 14 0A94 5 BGTR 108 + Continue 
05 0A96 836 
04 0A97 37 50$: RET 3; Error 
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ANAL IMDMP 16-SEP-1984 01:41:09 VAX/VMS Macro v04-00 Pa 0 
v04 oes 7 Bt iSaieg YIMGDMP. SREJANAL IMDMP.MAR: 1 “ (F) 
Ag 39 ; : 3 
Ad 40 ; Data 3 
A9 41; ; 
a9 i STACK_INI: Stack Limit before SIMGACT ; 
Py ac m r Py 
00000000 OA9B 4g ‘LONG 0 ie 
A9C 846 IMGHDRBF_INI: : CTLSGL.IMGHDRBF bet MGACT ; 
00000000 ns oF fut L$GL_I efore our IMGACTs 
SFFFFFFF 00000000 on a3 LL_PO: .LONG 0,*X3FFFFFFF ; Range to delete all of PO ‘ 
AA 51 68G_ARG: ; Argument List to call DEBUG : 
00000000 00000000 00000000 00000006 OAA 52 .LONG 6,0,0,0,0,0,CLISM_DBGEXCP ; 
00000000'00000000 00000000 Be “ : 
ACS B34 imc =DEFAULT ; Default name for images : 
59 53 24 53 59 53 000 Acco 01060009" ahbe ACS = 855 .ASCID /SYSS$SYSTEM: .EXE/ ; 
45 58 45 2€ AD2 2. : 
BA ADB §36 bec. DEFAULT: : Default name for DEBUG : 
49 4C 26 53 59 53 90000 3" 01069000" OADB «858 .ASCID /SYS$LIBRARY: .EXE/ : 
45 58 45 2€ 3 2 41 AES - ; 
00000000 00000000 wre B60 IMAGE: -LONG 0,0 ; Descriptor for image name 
OAFB HE IMG_RETADR: ; Address range of image F 
00000803 Oar 863 .BLKL 2 ; 
0B0 bes inc _HDRBUF : ; IMGACT buffer for image : 
00000003 980 66 -BLKB 512 : 
DO bes ba6 _RANGE : ; Range to merge in DEBUG 3 
3FFFFFFF 00000000 9005 $9 -LONG 0, *X3FFFFFFF ; 
47 55 42 45 44 00000D13'010E0000' 9008 fi 6b BEBUG: .ASCID /DEBUG/ : Name of DEBUG 
oD18 7 bac. RETADR: ; Address range used by DEBUG 
00000020 O18 rh .BLKL 2 
0020 8 ba6 -HORBUF : : IMGACT buffer for DEBUG 
00000F 20 OD BLKB 512 
F 23 beBuG BEG: : Transfer address for DEBUG 
00000F 24 F 0 i" LKL 1 
00001124 of ? g fap -BLKB 512 ; Address map buffer 
1124 4 ‘Wii ; First block of image header 
00001324 1124 5 BLKB 512 
1356 BRD 
} 1324 .ALIGN LONG 
‘ 1324 3 
1324 bmp _ FAB: $FAB FAC = <BI0,GET>,- 
1324 0 FNA = NAME BUFFER,- 
1324 891 DNA = DFLNAM,- 
1324 892 DNS = 


eee 


SS PO BOF ET res panacea, 
B 9 | 
: 09 AX/VMS Macro v04-00 Page ¢ 

742 IMGDMP.SRCJANALIMDMP.MAR; 1 (11) | 


93 ; 

f 94 OMP_RAB: SRAB FAB = DMP FAB. 

7 95 USZ = 5127- 

7 36 ROP = BIO 

50 40 44 2E 4 DFLNAM: eASCII /.DMP/ ; Default name for dumps 
40 39 BUMP _NAME : 4 ; Descriptor for name of dump file 

$0 13¢4" aur # ADDRESS NAME _BUFFER 
00001404 g re. -BLKB 64 
0000140C¢ 5 NEW_PO: -BLKL 2 ; PO space for relocating code 
0000160¢ MISC:: .BLKB 512 ; Buffer for misc data block 


Address range for a page to be created 


CREATE_PAGE : 
~BLKL 


ae 
2 
a 
m 
= 
m 
n” 
o 

>. 


; Desriptor for image name 


SNN NNO AAAAOOOA EEE 
oN NN tt tt BOO OOOOONOO 
NWR Hh HOMO DOWL LS LOOMOO FFL LOONOODL SLES 


1 

1 

1 

1 

1 

1 

} 

5 8 

ist 338 

ie 

Hise 3 

1606 909 

1 910 

1616 $12 

1 318 LONG NAMSC_MAXRSS 

1 914 ADDRES 

! 4 1$: -BLKB NAMSC_MAXRSS 

1 319 HEBUG_VA: ; 

! 318 «LONG 0 

1 920 MISC_VA:: ; VA's of misc data areas 

Vy 2 1 -BLKL IMGMOVSC_LENGTH 

17 9 5 MISC_CONTROL: 3; Description of misc address space 

17 924 «LONG <1$ = MISC_CONTROL>/12 

17 925 «LONG IMGDMPSL_KSTK_S1Z/4 : Kernel stack 

17 926 -LONG IMGDMPSL_KSTK_BLK/4 

17 927 LONG IMGMOVSL_KSTK74 

HA 928 -LONG IMGDMPSL-ESTK_S1Z/4 3; Exec stack 

17 ; 929 -LONG IMGDMPSL_ESTK_BLK/4 

1797 930 -LONG IMGMOVSL-ESTK74 

1798 = 931 -LONG IMGDMPSL_VECPAG_SIZ/4 ; Vector page 

179F 338 -LONG IMGDMPSL_VECPAG_BLK/4 

1fAS 9 «LONG IMGMOVSL_VECPAG74 

17A 934 -LONG IMGDMPSL_PIO_S1Z/4 ; PIO (RMS) area 

17AB = 935 LONG IMGDMPSL_PIO BLK/4 

17AF 3 $ «LONG GMOVS$L_P1074 

17Bs eLONG IMGDMPSL_IMGCTX_SIZ/4 ; Image activator context pages 

178 9 3 LONG IMGDMPSL_IMGCTX_BLK/4 

1788 9 - LONG GMOVSL~ IMGCTX74 

17BF «6940 «LONG IMGDMPSL_USRCTX_SIZ/4 ; User writeable context pages 

HA 941 «LONG IMGDMPSL_USRCTX-BLK/4 

17¢ 8e§ ° IMGMOVSL_USRCTX74 

rg Set 

17CB 4-945 -‘THIS_HDR: ; Pointers to this image's header buffer 
00001703 Vr 368 -BLKL 2 

17D 948 IMGNAMESS: ; ESS from open of image 
000018D2 17D 949 -BLKB NAMSC_MAXRSS 
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ANAL 
v04 


00000000° 
00000000 
00000000 


00000000 


31 50 000018EA'010E0000" 
45 47 41 4D 49 000018F4°010E0000° 


47 41 4D 49 GF 4E GOST HET "OTSE COTE” 


4E 49 24 53 59 53 soeerrre Tras 


55 4F 24 53 59 53 00001921 "01060000" 


52 45 24 53 59 53 rttchchtedh |e? my : * 
52 4F 


4's 99 
00001944" 


00001984 
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19736-1382 1:91:03 AX/VMS Mac 


SEP=1984 


ETRY_DISABL : 
. LONG 


LIBSM_CLI_CTRLY 


OLD_CTRL: : 
.LONG 0 


INP_CHAN: ; 
.LONG 0 


SuBP_PID: : 
.LONG 0 


MOVE_END: ; 


WO OONOAULS WTO 


Data after this point is not relocated 


eR Re re ree 


CON COUSW—"OVOONOuU 


€L1_PARAMETER: ; 
eASCID /P1/ 


CLI_IMAGE: 
<ASCID /IMAGE/ 


CLI_NOIMAGE : 
.ASCID 


/NOIMAGE/ 


SYSSINPUT: , 
»ASCID  /SYSSINPUT/ 


SYSSOUTPUT: 
AS 


=—o 


CID /SYSSOUTPUT/ 


SYSSERROR: 
eASCID /SYSSERROR/ 


coc @0C NNN  NANNNNNNOO 


wr 


OOOOOD 00 0D OWOO ODOOWWOWOVOVOVOODOODODOOOOOOOO|NO0O0O00O 


4 a 
5 INPUT_TRN: ; 
$ .LONG 64 
-ADDRESS SYSSINPUT_TRN 
8 SYSSINPUT_TRN: 
i -BLKB 64 
991 INPUT: .LONG 64 ; 
996 .ADDRESS 1$ 
993 1$: “BLKB 64 
994 OUTPUT: .LONG 64 
5 -ADDRESS 1$ 
936 1$: -BLKB 64 
43 ERROR: .LONG 64 
38 [ADDRESS 1% 
1$: “BLKB 64 
0} INP_MBX : ; 
2 .LONG 0 


ro V04-00 
48 CIMGDMP.SRCJANALIMDMP.MAR; 1 


Mask to disable control-Y 
Control-Y state 

SYSSINPUT channel 

PID of subprocess 


End of code to be relocated 


Get the command Line parameter 
The /IMAGE qualifier 


The /NOIMAGE qualifier 


Stings for TRNLOG 


Translation of initial SYSSINPUT 


Output strings from TRNLOG 


Channel for communications mailbox 
| 


— | 


<9 


—_ 


£3334 


= 
FAC = <GET,PUT>,- 
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$78 eth $F i5aie8 IMGDMP.SRCJANALIMDMP.MAR; 1 . ip 
1A88 1802 feRm_ mex Channel for termination mailbo 
: 3; Channel for termination ma x 
00000000 7: ! 5 “= ,LONG 0 | 
1 iu INP_MBX_UNIT: ; Unit number for communications mailbox 
00000000 - ! «LONG 0 
1A 1 TERM_MBX_UNIT: ; Unit number for termination mailbox 
00000000 A ; ! : ~LONG 0 
41 62 46D SF 1B 18 1A76°010 * 1A6C 1013 INPFAO: .ASCID <27><27>/_MBA!5ZW:/ 3; FAO string for mailbox name + ESCs 
RPE en ; 
JAre : 1? INP ROX_NAR: 14 ; Communications mailbox name 
tage 1A 3 1 i$ [ADDRESS 1$ 
1A97 1A 4 ! 18 1$: -BLKB 16 
1A97 1 $9 ANAL_IMG: ; Name of this image for CREPRC 
59 53 26 53 59 53 1A9F 010 0099" 197 1021 .ASCID /SYSS$SYSTEM:ANALIMDMP.EXE/ 
44 4D 49 GC 41 GE 41 SA rt 45 54 1AA5 
45 58 45 2E 50 4D 1a) 10 
1AB7 10 j TERM_MSG ; Termination mailbox message 
00001AC1 1Aay + : -BLKB 10 
1AC1 1 § LoG_ou ; Descriptor for output logical name 
00001AC9 Jacl ! -BLKL 2 
1AC9 1 5 LOG_IN: ; Descriptor for input logical name 
00001AD1 3 : ? -BLKL 2 
1AD1 1 : MBX CHAR: 
00000074 1AD1 1 -LONG DIBSK_LENGTH 
Q0001AD9" 1AD5 1034 ADDRESS MBXCRARBUF 
1AD9 1035 MBXCHA : ; Buffer for malbox characteristics 
00001B4D ts 4 ! § -BLKB DIBSK_LENGTH 
00001855 184 : jose: -BLKL 2 : 10SB for mailbox use 
1855 1040 REAL_INPUT: : Real SYSSINPUT when in subprocess 
00001850 18 1041 -LONG 64 
1850" 18 1 +g -ADDRESS 1$ 
1B9D 18 : } tz 18: -BLKB 64 | 
1890 45° -ALIGN LONG 
! } § OUTFAB: SFAB FNM = <SYSSOUTPUT>,- ; FAB for SYSSOUTPUT | 
1BAQ 104 FOP = <CIF> | 
18 OUTRAB: $RAB = FAB = OUTFAB | 
1€34 1053 IMGFAB: SFAB NM = <.EXE>,- 

i r ' : NAM = IMGNAM | 
1€84 1056 IMGNAM: SNAM ESS = NAMSC_MAXRSS,- 


ae ee ee ay 


—E 9 
"OrSEb=]982 SLISR:2E VINGUME.SRESRuACimomP.mars1 29° (94; 
1p 7 } ESA = IMGNAMESS 
1 33 CRE_SUB_MSG: .ASCID <13><10><13><10>/Creating a subprocess/ 


198) COND_MSG: sASCID <13><10>/Condition signalled to take dump:/ 


—> 
SVUOCUOUIVTINNNOoO 


SSBRARAmOE EE 


O68 : - END ANAL IMDMP 


F 9 
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Srabel cable Meee bbe 01:38:48 LIRGURE. CRETANAC TROGP. MAR: 1 (H?) 
ABSV_B10 2 
Hh . 8} F ABSV-EHAN. MODE z 03 
$$. TABEND . FABSV-CIF 2 ; 
+ Bas 2 FABSV"F ILE_MODE : i 
+ Sp la = FABSV"G 5 2 1 
Spa 2 03 F ABSV-LNM_MODE s 
+ pln. FABSV~PUT 2 
SS, 7RPxt - FABSW GBC ° 4 
oer) - FIX. IAGHDRBF $f 1 
pete : FIXTSTACK 933 R ; 
nee 1 GET DEBUG 0000788 R : 
at : oF T-pi 000608 R 1 
BDL AL Se. vA 1 GET~TRAN 00004 ROI 
at sesseses i tw pe ee at COE iss soveccse 
etigeatteat” ecccesee =k OT IACSR_RERGE~ = 00000010 
Nett O00018EC R 1 IHD$W71MG1DOFF = 0000000 
tT AOI RAGE OO018F9 R : 1HI$T~1MGNAM = 90000003 
ster ane 009 osrs & i TRACE DESC 0001614 ROOT 
porate ans 2001» 5 R i IMGACT 0000989 R Ot 
2 
eT Bae 0990160¢ ia: INGDAPSC_LENGTH : a90000r8 
CRE Sue hee OO001CES R 1 IMGDMP$C~VERSION = 9000009 
RE | SUB ee a oe IMGOMPSL AP = 90000054 
STLEM. STACK eeeeeeee X01 IMGDMPSL~ASTACT = 00000050 
2s a eae eeenenee X01 IMGDMPSL-ASTCNT = 000000A0 
cT PH eeentene 1 IMGOMPSL~ASTEN = 00000054 
Sth pitake o0182 ROT IMGDMPSL-ASTLM = 9000004 
SP ae OAA8 R 1 IMGDMPSL-BIOCNT = 00000068 
“DEF BOsADR ROOT IMGDMPSL “BIOL = 9000006¢ 
4 Sin har 00020 R IMGDMPSL BUF I = 900000 
Reem nANee 0 3 ® 6} IMGDMPS$L-BYTCNT = 00000074 
a Di8 R 1 IMGOMPS$L_BYTL = Ha Th 
pesos, ee DOB R 1 IMGDMPSL~DIOCNT = 0000007C 
peeds tittte tine 1 GOMPSL~DIOLM = 00000080 
DEBUT UA” 1718 R 1 IMGDMPSL~DIRIO = 9000008 
peu re 0901 R ; IMGDMPSL~EFCS = 00000060 
DELETE 1388 R ; IMGDMPSL EF CU = 90000064 
oft ‘ é IMGDMPSL~ENGCNT = 900000a8 
Stora ie = 8 C IMGDMPSL~ENQLM z OOOAC 
BI SPEKY bu * YX 1 IMGDMPSL_ESTK_BLK = $ 00BC 
OA ABT co oe IAGDAPSL-ESTK~S12 = 000000¢4 
+a CR OOF IMEDMPSC-FILCRY = b000008s 
KOR GR 1 IMGDMPSL~FILLM = 9900008¢ 
4 eeeetere X01 IMGDMPSL~FIRST_MAP = 0000003¢ 
EXE SRESETVEC M 5 INGDMPSL FP = 00000038 
eAeee-pns ° 32 INGDMPSL “FREE pO = 00000048 
FABSB-FNS . IMGDMP$L~FREE~P 2 é 
ants He ; IMGDMPSL~IMGCTX_BLK : E 
ug : iret §=— > BE 
FABSC VAR ; INGDMP$L-KSTK_BCK 2 6 
FABSL ALO : IMGDMPSL“KSTK-SIZ = 
FABSCTPNA s z¢ 8 reg . : + 
FABSL~FOP . IMGDMP$L~P10_BL 


ak ae ee ee Fe 
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$ Ll teble §-8 att 7 8 $328 YIMGDMP. SRETANALIMDMP.MAR: 1 . (i 
IMGDMPSL _PIO_S1Z = 10$_READVBLK s 
eee pee VA = LOS SET MODE = oes 
' “PRCENT z 10$" WRITEVBLK s 
MAGDMPSL_PRCLA 2 10S6 1B40 R 1 
sa oe = LIBSDISABLE_CTRL eeeeeere 1 
' ms = LIBSENABLE_ CTRL eeeeeeee 8 6X 1 
nee ny = LIBSM_CLI_CTRLY eeeerere 8 1 
LMGDAPSL RI] : LOG_IN 1AC9 R 1 
I am = L0G_OUT is! R 1 
IMGOMPSL—R 5 MAP OF 24 R 1 
ie Siete wit 

= 
IRGDRPRL RE = 8 pees R 1 
1 “R = MIS 140C RG 1 
IMGDMPSL RB = MISC_CONTROL 177F R 1 
IMGDMPSL _ = MISC_VA 171F RG 1 
IMGDMPSL_SP = MOVE _BEG 0561 R 01 
IMGDMPSL ~TOCNT 2 MOVE END 1BE2 R 01 
IMGDMPSL_TOLM = NAMSE_ESL = 000 
IMGDMPSL~USRCTX_ . NAMSB~ESS = 0000000 
IMGDMPSL_USRCTX~S1Z = AMS$B_NOP = 0000 00 
IMGDMPSL~USRCTX-VA > NAMSB_RSS = 000 
IMGOMPSL_USRST = NAMSC_BID = 0 0 
IMGDMPSL_VECPAG_ BLK = MSC_BL = 0000006 
IMGOMPSL ~VECPAG_S1Z 2 NAMSC-MAXRSS = QOO00FF 
IMGDMPSL_VECPAG V = NAMSL_ESA = 000C 
IMGDMPSL “VERSION + NAMSL RSA : 9000004 
IMGDMPSO_CURPRIV = NAME BUFFER +4 13C4 R 01 
IMGDMPSS_CURPRIV = w P 001404 R 01 
IMGDMPSS_1 =z NEXT_MAP 0 oars R 01 
IMGF AB 1 OLD_CTRL 001 08 R 01 
IMGHOR RG 1 TFAB eS R 01 
IMAGHDRBF _INI 1 OUTPUT 001 gf R 01 
IMGMOV = OUTRAB OO1BFO R 01 
IMGMOVSC_LENGTH = PHD$Q_IMAGPRIV = 000 O0E8 
IMGMOVSL_ESTK = PRVSV_CMEXEC = 4 1 
IMGMOVSL_IMGCTX = PRVSV_CMKRNL = 00000000 
IMGMOVSL “KSTK : ABSB-RAC = 00000016 
IMGMOVSL _PIO = RABSC_BID = 00 : 00 
IMGMOVSL_USRCTX = RABSC_BLN = 00000044 
IMGMOVSL ~VECPAG 2 RABSC~SEQ = 00 0 09 
IMGMOVSS_ 1 = RABSL_CT = 88 1 
IMGNAM R 1 RABSL_ROP = 04 
IPGNAME SS R 1 RABSV BIO = 
IMG_DEF AULT R 1 READ_ONE A2F R 1 
1AG_HDRBUF g 1 REAL~ INPOT 1855 R 1 
1MG_RETADR R 1 RESET_PRIV 4B R 1 
INIT_SuBP R 1 RESET VEC 979 R 1 
INPF AO R 1 RESTORE MISC_VA OO009FB R 1 
INPUT R 1 RMSS_FNF eteneere = § X 1 
INPUT_TRN R 1 $$$_BADFILEVER eeeneeee§ X 01 
INP_CRAN R 1 5$$_DEBUG teneeees X01 
INP“MBX R 1 S$ NORMAL eneeeeee X01 
INP=ReX-UNIT ROSS eWasrULL creceess XO 
1O$A_CTRLYAST STACK_INI QO000A98 R 1 
10$4_ NOW SUBP_PID OOO18DE R 1 


Siecee =| ORRES BERD 
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Symbol table et iE 38: 23 LTMGDMP. SRCIJ ANALIMDMP.MAR; 1 . aif 
SYSSASSIGN eeeeeree GX 1 ; 
SYSSCLOSE eeeerere GX 1 : 
SYSSCMEXEC eeereree GX 1 : 
SYSSCMKRNL eerereee 6X 1 : 
SYSSCONNECT eeeereee GX 1 : 
SYSSCREATE eeereree 6X 1 : 
SYSSCRELOG eeeereer GX 1 : 
SYSSCREMBX eerereee 6X 1 : 
SYSSCREPRC eerereee 6X 1 ; 
SYSSCRETVA eeeeneee GX 1 : 
SYSSDELPRC eeeerere GX 1 : 
SYSSDELTVA eeeeeere GX 1 : 
SYSSO1SCONNECT eeeereee GX 1 : 
SYSSERROR 00001928 R 1 : 
SYSSEXIT eetereee GX 1 : 
SYSSEXPREG eeeneeee GX 1 : 
SYSSFAO eeeereee x 1 : 
SYSSGETCHN eeereree GX 1 : 
SYSSIMGACT eeneeere GX 1 : 
SYSSIMGF 1X eeeeeeee GX 1 : 
SY T 001908 R 1 : 
SYSSINPUT_TRN 1944 R 1 : 
SYSSOPEN eeeeeeee GX 1 : 
SYSSOUTPUT 00001919 R 1 : 
SYSSPUT eteneere GX 1 : 
SYSSPUTMSG eeeeeeee GX 1 : 
SYSSQ10 eeeneeee GX 1 : 
SYS$Q10W eterenee GX 1 : 
SYSSREAD eereeeee GX 1 : 
SYSSSETPRV eeeeeere GX 1 : 
SYSSTRNLOG eeeeeeee GX 1 : 
al 1A60 R 1 3 
TERM_MBX_UNIT 1A68 R 1 : 
TERM~MSG O01AB7 R 1 ; 
THIS_HDR 17CB R 1 : 
emer er er escvreeee mone + Py 
: ;_Psect _Synopsis H ; 
PSECT name Allocation PSECT No. Attributes : 
- ABS. ( -) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE : 
pom 1 ( 7472.) Q1 ¢ 1.) NOPIC USR CON REL LCL NOSHR' EXE RD WRT NOVEC LONG : 
$SABS ( ) § ( §°} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE : 
SRMSNAM OOE ( 14.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE : 
: Performance indicators H : 
Phase Page faults CPU Time Elapsed Time : 


"B73 b=198e B1:3h:c8 YTMGUME. SRESaNACimoMP.mars1 29° (99) 


oa 
VAX=11 Macro Run Statistics 


Cross-reference output 


1 7:00:04. :00:09.3 
—~ 4. table output 3 200: 3 :00:00.4 
Assembler run totals 26. 


aye synopsis output 6 
90 


he york ing *t308 bag was 1500 pages 
10 21 mtg | pages) of virtual memory were used to buffer Tr Lent ple ght ode. 

here vere 6 0 pages of oe A table pres oducing 39 to hold 1375 non-local ee 71 local symbols. 
196 source Lines were read in Pass produc object records in Pass 
65 pages of virtual memory were used to define & 5 macros. 


bowser meer see oes moe aman so sean} 


! Macro Library statistics ! 


$oeenre senses enenweerre rer ee ee > 


Macro Library name Macros defined 


-$esteue: turer, QBIINGDMPLIB.MLB:1 7. 

SYSLIBJSTARLET.MLB;2 4 

TOfAcs (all Libraries) 52 

1781 GETS were required to define 52 macros. 

There were no errors, warnings or information messages. 

MACRO/L1S=L1S$:ANALIMDMP/0BJ=0BJ$:ANALIMDMP MSRC$:ANAL IMDMP/UPDATE=(ENHS: ANAL IMDMP) +EXECML$/LIB+L1B8$: IMGDMPLIB/LIB 
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AH-BT13A-SE I 
L_AND PROPRIETARY 
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